home *** CD-ROM | disk | FTP | other *** search
/ The Genius of Edison / The Genius of Edison (Version 1.0)(Softkey Multimedia)(GOE744AE-CD)(1996).ISO / pc / data / shared.cst / 00047_Script_Daily Edisonian < prev    next >
Text File  |  1996-09-03  |  989b  |  41 lines
  1. -- ---------------------------------------------------------------
  2. -- Handler goEdisonianPage
  3.  
  4. on goEdisonianPage whichPage
  5.   global DEPOptionsVisible
  6.   
  7.   playClickSound
  8.   
  9.   set pageMarker = "dep" & whichPage
  10.   
  11.   if (DEPOptionsVisible) then
  12.     hideDEPMenuOptions
  13.   end if
  14.   
  15.   goFrame pageMarker
  16.   
  17.   if (whichPage >= 1) then -- not for front page
  18.     playRandomDEPSound
  19.   end if
  20. end
  21.  
  22. -- ---------------------------------------------------------------
  23. -- Handler setNumDepPages sets the global variable numDEPPages to
  24. -- the given value. (the number of pages in the current dep section)
  25.  
  26. on setNumDEPPages val
  27.   global numDEPPages
  28.   
  29.   set numDEPPages = val
  30. end
  31.  
  32. -- ---------------------------------------------------------------
  33. -- Handler playRandomDEPSound plays a random sound for the daily
  34. -- edisonian
  35.  
  36. on playRandomDEPSound
  37.   global numDEPSounds
  38.   
  39.   set whichSound = random(numDEPSounds)
  40.   puppetSound ("DEMus" & whichSound & ".aif")
  41. end